home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / cai205.zip / DEMO.CAI < prev    next >
Text File  |  1991-07-17  |  17KB  |  668 lines
  1. @OPTION ESCAPE=MENU
  2. .screen 0
  3. .color 15,1
  4. .cls
  5.  
  6.                                   PC-CAI 2.0
  7.  
  8.                      (C)Copyright Alan C. Elliott, 1986-90
  9.                    Portions (C) Microsoft Corporation 1982-87
  10.  
  11.  
  12.  
  13. .col 12,1
  14. .cen(* WELCOME TO THE PC-CAI DEMO! *)
  15. .col 7,1
  16.  
  17. This demo will use the CGA graphics capabilities of your computer. If you are
  18. currently using an IBM monochrome monitor without graphics capabilities, some
  19. of the graphic images will not appear in the demo.
  20.  
  21. This software is distributed under the user supported concept, and you may
  22. copy or give it away only under the conditions outlined in the manual.
  23. Thanks for your interest and support.
  24.  
  25. To end the demo at any time, press the Esc key.
  26.  
  27. .locate 25,1
  28. .pause
  29. .screen 1
  30. .CIR CENTER=(160, 265) radius=300 color=2
  31. .CIR CENTER=(160, 300) radius=300 color=2
  32. .PAINT CENTER=(170, 20) color=2 bound=2
  33. .CIR CENTER=(150, 6) radius=5
  34. .CIR CENTER=(160, 6) radius=5
  35. .CIR CENTER=(170, 6) radius=5
  36. .PSET 30, 44
  37. .DRAW (*c1u20f7g7*)
  38. .PAINT CENTER=(32, 28) color=1 bound=1
  39. .PSET 230, 24
  40. .DRAW (*c1u20f7g7*)
  41. .PAINT CENTER=(232, 8) color=1 bound=1
  42. .PSET 300, 44
  43. .DRAW (*c1u20f7g7*)
  44. .PAINT CENTER=(302, 28) color=1 bound=1
  45. .PSET 90, 24)
  46. .DRAW (*c1u20f7g7*)
  47. .PAINT CENTER=(92, 8) color=1 bound=1
  48. .locate 21,1
  49. Here comes something new . . .
  50. .LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4
  51. .ANIMATE (1,100)-(250,100) STEPX=4 STEPY=0 PAUSE=1
  52. .screen 0
  53. .color 15,1
  54. .CLS
  55.  
  56.                            I N T R O D U C I N G ...
  57.  
  58.  
  59.  
  60.  
  61.                      █████  █████     █████   ███    ███
  62.                      █   █  █         █      █   █    █
  63.                      █   █  █         █      █   █    █
  64.                      █   █  █    ████ █      █   █    █
  65.                      █████  █         █      █████    █
  66.                      █      █         █      █   █    █
  67.                      █      █████     █████  █   █   ███
  68.  
  69.  
  70. PC-CAI is a Personal Computer - Computer Aided Instruction language. It is
  71. a language specifically designed to implement the personal computer as a
  72. tutor.
  73. .color 15,1
  74. .locate 24,1
  75. .pause (*Please press ENTER to continue*)
  76. .screen 1
  77. .cls
  78. .pset 1,100
  79. .draw (*C2r320*)
  80. .circle center=(160,100) radius=50 color=2 start=0 stop=3.14
  81. .paint center=(160,98) color=2 bound=2
  82. .PSET 250,150
  83. .DRAW (*e3u30h4e2h7e4h3r2f3g4f7g2f4r6*)
  84. .DRAW (*h4e2h7e4h3r2f3g4f7g2f4*)
  85. .DRAW (*e4h7e4h3r2f3g4f7g4d30f3*)
  86. .CIRCLE CENTER=(256,100) RADIUS=30 COLOR=1
  87. .CIRCLE CENTER=(245,102) RADIUS=6 COLOR=1
  88. .CIRCLE CENTER=(265,107) RADIUS=11 COLOR=1
  89. .CIRCLE CENTER=(256,97) RADIUS=5 COLOR=1
  90. .CIRCLE CENTER=(256,92) RADIUS=7 COLOR=1
  91. .CIRCLE CENTER=(245,90) RADIUS=9 COLOR=1
  92. .PSET 160,100
  93. .DRAW (*c2u90*)
  94. .PSET 160,100
  95. .DRAW (*c2e90*)
  96. .PSET 160,100
  97. .DRAW (*c2h90*)
  98. .PSET 10,160
  99. .DRAW (*C3R310*)
  100. .PSET 1,180
  101. .DRAW (*C3R310*)
  102. .PSET 20,160
  103. .DRAW (*g20r20e10l20r20e10*)
  104. .DRAW (*g20r20e10l20r20e10*)
  105. .DRAW (*g20r20e10l20r20e10*)
  106. .DRAW (*g20r20e10l20r20e10*)
  107. .DRAW (*g20r20e10l20r20e10*)
  108. .DRAW (*g20r20e10l20r20e10*)
  109. .DRAW (*g20r20e10l20r20e10*)
  110. .DRAW (*g20r20e10l20r20e10*)
  111. .DRAW (*g20r20e10l20r20e10*)
  112. .DRAW (*g20r20e10l20r20e10*)
  113. .DRAW (*g20r20e10l20r20e10*)
  114. .DRAW (*g20r20e10l20r20e10*)
  115. .DRAW (*g20r20e10l20r20e10*)
  116. .DRAW (*g20r20e10l20r20e10*)
  117. .DRAW (*g20r20e10l20r20e10*)
  118. .pallette 0
  119. .pallette 1
  120. .pallette 0
  121. .pallette 1
  122. .pallette 0
  123. .pallette 1
  124. .pallette 0
  125. .PSET 50,160
  126. .DRAW (*c1e10r1g10h8r1f7u5*)
  127. .PSET 200,180
  128. .DRAW (*c1e10r1g10h8r1f7u5*)
  129. .PSET 250,152
  130. .DRAW (*c1e10r1g10h8r1f7u5*)
  131. .get beetle.img
  132. .play (*mfo3l16ap4a*)
  133. .move (20,155)-(100,155) steps=50
  134. .play (*mfo3l16ap4a*)
  135. .put 100,155
  136. .move (100,155)-(250,155) steps=50
  137. .play (*mfo3l16ap4ap4a*)
  138. .put 250,155
  139. .locate 1,1
  140. .center (*The Dawn of a New Day*)
  141. .center (*in Computer Aided Instruction!*)
  142. .locate 24,1
  143. .pause (*Please press ENTER to continue*)
  144.  
  145. .screen 0
  146. .color 3
  147. .cls
  148. PC-CAI allows the computer to act as a teacher and tester. Instruction, such
  149. as what you are reading now, may be displayed on the screen. The learner
  150. reads the instructions at his or her own pace.  Special effects may be added:
  151.  
  152. .COLOR 19
  153. Color changes, and blinking text.
  154. .color normal
  155.  
  156. .pause (*Press the ENTER key to hear some music . . .*)
  157. .play (*mft200o2l8dggggg4.a8bbbbb4.o3l8d4dedo2bgabbaag4*)
  158.  
  159. .locate 20,30
  160. .color reverse
  161. LOOK! YOU HAVE COMPLETE CONTROL OVER THE TEXT
  162. .COLOR 3
  163. .locate 10,1
  164. With locator instructions, notices may be placed anywhere on the screen.
  165. Look for the LOOK! placed on the screen below this text.
  166.  
  167. .cen (*Or CENTER TEXT on the screen*)
  168.  
  169. After instruction is given, questions may be asked to reinforce the learning.
  170. All of this is performed with an easy to use set of instructions created
  171. specifically for this purpose.
  172. .locate 25,1
  173. .pause (*Please press ENTER to continue*)
  174. .cls
  175. Now let's see what you have learned...
  176.  
  177.  
  178. @BEGIN QUESTION
  179. .col 10
  180.                               ANSWER THIS QUESTION
  181.  
  182.  
  183. .col 3
  184. @read (*What is the name of this language? *)
  185. @try 3
  186. @right (*PC-CAI*) nocase
  187. .color 10
  188.  
  189. THAT'S EXACTLY CORRECT!
  190.  
  191. With PC-CAI, you can check for answers where case may or may not be
  192. important. Also, you can check for exact answers, or answer that "sound"
  193. right. You'll see what I mean later...
  194.  
  195. .play (*mft200l16o2cccdddeeefffgggaaabbbo3ccc*)
  196. .locate 24,1
  197. .pau
  198. @wrong
  199. .col 12
  200.  
  201. Oops, try a little harder...
  202.  
  203. I'm looking for the name of the Personal Computer-Computer Assisted
  204. Instruction language.  (Hint:PC-CAI)
  205.  
  206. With PC-CAI you can specify expected responses to questions, and use the
  207. answer to cause the program to branch to other parts of the tutorial.
  208.  
  209. .Play  (*mfp2p2p2*)
  210. @WRONG FINAL
  211. .col 12
  212.  
  213. The answer is PC-CAI.
  214. .locate 24,1
  215. .pause
  216. @end question
  217. .col 11
  218. .cls
  219. .color 15,4
  220. .blank 2
  221. .color 0,15
  222. .blank 2
  223. .color 15,4
  224. .blank 2
  225. .color 0,15
  226. .blank 2
  227. .color 15,4
  228. .blank 2
  229. .color 0,15
  230. .blank 2
  231. .color 15,4
  232. .blank 2
  233. .color 0,15
  234. .blank 2
  235. .color 15,4
  236. .blank 2
  237. .color 0,15
  238. .blank 2
  239. .color 15,4
  240. .blank 2
  241. .color 15,1
  242. .locate 1,1 (*  * * * * * * * * * *  *)
  243. .locate 2,1 (*                       *)
  244. .locate 3,1 (*  * * * * * * * * * *  *)
  245. .locate 4,1 (*                       *)
  246. .locate 5,1 (*  * * * * * * * * * *  *)
  247. .locate 6,1 (*                       *)
  248. .locate 7,1 (*  * * * * * * * * * *  *)
  249. .locate 8,1 (*                       *)
  250. .locate 9,1 (*  * * * * * * * * * *  *)
  251. .locate 10,1 (*                       *)
  252. .locate 12,1
  253. .CENTER (*ARE YOU GOOD AT AMERICAN HISTORY?*)
  254. .skip 1
  255. .COLOR 9
  256. .CENTER (*HERE'S YOUR CHANCE TO SHOW*)
  257. .skip 1
  258. .COLOR 12
  259. .CENTER (*YOUR TRUE COLORS*)
  260. .PLAY (*T180O2L8GEC4E4G4O3C2*)
  261. .locate 24,1
  262. .pause
  263. .cls
  264. @begin question
  265. .col 3
  266.  
  267. @read (*Who was the first president of the USA ?*)
  268. @trys 3
  269. @right (*washington*) keyword
  270. .col 10
  271. George Washington is correct!
  272. .PLAY (*T255O1CDEFGABO2C*)
  273. .play (*mfp1p1*)
  274. @wrong (*lincoln*) keyword
  275. .color 12
  276. Lincoln was president during the Civil War
  277.  
  278. @wrong (*jefferson*)
  279. .col 12
  280. Thomas Jefferson was an early president, and he was the author of
  281. the Declaration of Independence.
  282.  
  283. @wrong
  284. .color 25
  285. HINT:
  286. .color 11
  287. The capitol of the United States was named after him.
  288.  
  289. .PAUSE (*Press ENTER to continue.*)
  290. @wrong final
  291. .col 3        
  292.                                                                  
  293. The answer is GEORGE WASHINGTON.
  294.  
  295. @end question
  296. .locate 24,1
  297. .pau(*Please press ENTER*)
  298. .screen 1
  299. .cls
  300. .pcx testpcx.pcx 0,0
  301. .locate 1,1
  302. .CEN(*  DISPLAY PCX PAINTBRUSH TYPE GRAPHICS  *)
  303. .locate 25,1 (*                                        *)
  304. .locate 25,1
  305. .pause (* Press Enter*)
  306. .locate 25,1 (*            *)
  307. .locate 1,1
  308. .cen (* COMBINE PCX GRAPHICS AND PC-CAI IMAGES *)
  309. .LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4
  310. .ANIMATE (30,100)-(280,100) STEPX=4 STEPY=0 PAUSE=1
  311. .locate 25,1
  312. .pause (* Press Enter*)
  313. .screen 0
  314. .cls
  315. .col 3
  316. .cen(*HERE IS AN EXAMPLE -- "FROM HOW TO USE A PC"*)
  317.  
  318. .col normal
  319.  
  320.                               ┌────────────────┐
  321.                               │ ┌──────────┐   │
  322.                               │ │          │ ▄ │
  323.                               │ │          │   │
  324.                               │ │          │ ° │
  325.                               │ └──────────┘ ° │
  326.                         ┌─────┴════════════════┴─────┐
  327.                         │  ▄      ▄▄▄──▄▄▄ ▄▄▄──▄▄▄  │
  328.                         │ │││││││ █▄▄__▄▄█ █▄▄__▄▄█  │
  329.                         └────────────────────────────┘
  330.  
  331.  
  332. .locate 7,35
  333. .color 10
  334. WELCOME
  335. .color 7
  336. .play (*mft160o2l8cdep2*)
  337. .locate 7,35 (*       *)
  338. .locate 7,36
  339. .color 12
  340. TO THE
  341. .color 7
  342. .play (*fgap2*)
  343. .color 14
  344. .loc 6,35 (*  IBM*)
  345. .loc 7,35 (*PERSONAL*)
  346. .loc 8,35 (*COMPUTER*)
  347. .play (*bo3c*)
  348. .col 14
  349. .locate 14,64
  350. ╒══════╕
  351. .loc 15,64
  352. │      │
  353. .loc 16,64
  354. │┌────┐│
  355. .loc 17,64
  356. ││──┘││
  357. .loc 18,64
  358. │└────┘│
  359. .loc 19,64
  360. │      │
  361. .loc 20,64
  362. │      │
  363. .loc 21,64
  364. ╘══════╛
  365. .loc 14,1
  366. .color 3
  367.  
  368. The IBM Personal Computer awaits your every command.
  369. First, we must know how to tell it to do something. After
  370. typing your answer to a question, you must press the
  371. ENTER key (sometimes called the RETURN key). This key is
  372. located on the right side of the keyboard. It looks like
  373. the one pictured here.
  374.  
  375. .col 14
  376. .pau(*Press the ENTER key once *)
  377. .col normal
  378. .cls
  379. .loc 1,1
  380.      ┌──╥──┐┌──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥─────╥─────╥─────┐
  381.      │F1║F2││ES║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║ -- ║NumLk║ScrLk│
  382.      ╞══╬══╡╞══╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩═╦═══╬══╦══╬══╦══╡
  383.      │F3║F4││-│║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║]  ║  │║7 ║8 ║9 ║- │
  384.      ╞══╬══╡╞═══╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣─┘╠══╬══╬══╬══╡
  385.      │F5║F6││Ctrl║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║   ║4 ║5 ║6 ║  │
  386.      ╞══╬══╡╞═══╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬═══╬══╬══╬══╣  │
  387.      │F7║F8││  ║\ ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║  ║ * ║1 ║2 ║3 ║+ │
  388.      ╞══╬══╡╞═══╩═╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬═══╩══╬══╩══╣  │
  389.      │F9║F0││ Alt ║                            ║CapLk║  0   ║  .  ║  │
  390.      └──╨──┘└─────╨────────────────────────────╨─────╨──────╨─────╨──┘
  391. .loc 1,16
  392. .color reverse
  393. ╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥
  394. .loc 2,16
  395. ║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║
  396. .loc 3,16
  397. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩
  398. .loc 4,17
  399. ║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║]  ║
  400. .loc 5,17
  401. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣
  402. .loc 6,18
  403. ║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║
  404. .loc 7,18
  405. ╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬
  406. .loc 8,20
  407. ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║  ║
  408. .loc 9,19
  409. ╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬
  410. .loc 10,19
  411. ║                            ║
  412. .loc 11,19
  413. ╨────────────────────────────╨
  414. .color 3
  415. .LOCATE 15,1
  416. .col 3
  417. This is a simple picture of the IBM Personal Computer Keyboard. Notice that
  418. it looks very similar to a standard typewriter keyboard, especially the
  419. high-lighted portion.
  420.  
  421. .col 14
  422. .pau (*Please press ENTER*)
  423. .color normal
  424. .loc 1,16
  425. ╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥
  426. .loc 2,16
  427. ║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║
  428. .loc 3,16
  429. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩
  430. .loc 4,17
  431. ║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║]  ║
  432. .loc 5,17
  433. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣
  434. .loc 6,18
  435. ║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║
  436. .loc 7,18
  437. ╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬
  438. .loc 8,20
  439. ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║  ║
  440. .loc 9,19
  441. ╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬
  442. .loc 10,19
  443. ║                            ║
  444. .loc 11,19
  445. ╨────────────────────────────╨
  446. .color reverse
  447. .locate 5,18
  448. ╦═╩╦
  449. .locate 6,18
  450. ║A ║
  451. .locate 7,18
  452. ╩═╦╩
  453. .col 3
  454. .loc 15,1
  455. .bla 9
  456. .loc 15,1
  457. Let's try using the keyboard. Locate the "A" on the keyboard and press it
  458. once. Notice that a lowercase "a" appears on the screen. Press the ENTER key
  459. after you have typed an "a".
  460. @Begin question
  461. @trys 7
  462.  
  463. @write
  464.  
  465. .col 14
  466. @READ (*Press the "A" key once, and press the ENTER key :*)
  467. @right (*A*) exact nocase
  468. .col 10
  469. Very, good. Let's continue.
  470. .play (*t160l16o2cdefgabo3cp2p2*)
  471. @wrong
  472. .col 12
  473. Woops, enter a single letter "A", and press the Enter key.
  474. .play (*o1a1p1p1*)
  475. .loc 19,1
  476. .bla 4
  477. .loc 19,1
  478. @end question
  479. .col 14
  480. .loc 15,1
  481. .bla 9
  482. .loc 17,1
  483. .cen(*GET THE IDEA???*)
  484. .locate 24,1
  485. .pause
  486. .col 3
  487. .cls
  488. .locate 2,1
  489. That is a brief view of what PC-CAI can do . . .
  490. .color 11
  491. .loc  4,1
  492. .bla 3
  493. .loc 4,1
  494.  
  495.                  -You can create your own tutorials with PC-CAI
  496.  
  497.                     -You can use it as an instructional tool
  498.  
  499.               -You can integrate color, sound, animation and more!
  500.  
  501.  
  502. No previous programming is required to use PC-CAI, you can begin by using the
  503. PC-CAI Program Generator, and PC-CAI will allow you to be more sophisticated
  504. in your tutorials as you learn how to use it more.
  505.  
  506. .color 10
  507.  
  508.  
  509.  
  510.           NOW LET'S SEE ANOTHER EXAMPLE OF PC-CAI'S CAPABILITIES. . .
  511.  
  512. .locate 24,1
  513. .pau (*Please press ENTER*)
  514. .color normal
  515. .rem---------------------------------THIS IS THE ALPHABET PART
  516. @LABEL:ALPHA
  517. .cls
  518. .screen 1
  519. .get a.img
  520. .move (0,0)-(0,70) steps=10
  521. .PLAY (*msmbt200o1l4ggo2ddeed2cco1bbmsa8a8a8a8g2*)
  522. .get l.img
  523. .move (0,0)-(30,70) steps=10
  524. .get p.img
  525. .move (0,0)-(60,70) steps=10
  526. .get h.img
  527. .move (0,0)-(90,70) steps=10
  528. .get a.img
  529. .move (0,0)-(120,70) steps=10
  530. .get b.img
  531. .move (0,0)-(150,70) steps=10
  532. .get e.img
  533. .move (0,0)-(180,70) steps=10
  534. .get t.img
  535. .move (0,0)-(210,70) steps=10
  536. .PLAY (*mbt200o2ddcco1bba2o2ddcco1bba2o1ggo2ddeed2cco1bbaag2*)
  537. .loc 23,1
  538. .play(*mfp16*)
  539. .pau
  540. .cls
  541. .get a.img
  542. .move (0,0)-(20,70) steps=15
  543. .get apple.img
  544. .move (200,0)-(145,70)
  545. .loc 17,1
  546. .cen (*APPLE*)
  547. .get good.img
  548. @begin
  549. .loc 23,1 (*                        *)
  550. .loc 23,1
  551. @read (*PRESS THE LETTER A : *)
  552. @right (*A*) force nocase auto
  553. .play (*mbo3l32gabo4c*)
  554. .put 50,10
  555. .put 100,10
  556. .put 150,10
  557. .put 200,10
  558. @end
  559. .loc 23,1 (*                        *)
  560. .loc 23,1
  561. .pau
  562. .cls
  563. .get b.img
  564. .move (0,0)-(20,70) steps=20
  565. .get ball.img
  566. .move ((0,0)-(310,190) steps=25
  567. .play (*o4l16a*)
  568. .put 310,190
  569. .move (310,190)-(0,100)
  570. .play (*o4l16a*)
  571. .put 0,100
  572. .move (0,100)-(145,70)
  573. .play (*o4l16a*)
  574. .loc 17,1
  575. .cen (*BOUNCING BALL*)
  576. .get good.img
  577. @begin
  578. .loc 23,1 (*                        *)
  579. .loc 23,1
  580. @read (*PRESS THE LETTER B : *)
  581. @right (*B*) force nocase auto
  582. .play (*mbo3l32gabo4c*)
  583. .put 50,10
  584. .put 100,10
  585. .put 150,10
  586. .put 200,10
  587. @end
  588. .loc 23,1 (*                        *)
  589. .loc 23,1
  590. .pau
  591. .cls
  592. .get c.img
  593. .move (0,0)-(20,70) steps=20
  594. .LOAD CAT1,CAT2,CAT3,CAT4
  595. .ANIMATE (1,100)-(134,100) STEPX=2 STEPY=0 PAUSE=1
  596. .get cat1
  597. .put 134,100
  598. .loc 17,1
  599. .cen(*CAT*)
  600. .get good.img
  601. @begin
  602. .loc 23,1 (*                        *)
  603. .loc 23,1
  604. @read (*PRESS THE LETTER C : *)
  605. @right (*C*) force nocase auto
  606. .play (*mbo3l32gabo4c*)
  607. .put 50,10
  608. .put 100,10
  609. .put 150,10
  610. .put 200,10
  611. @end
  612. .loc 23,1 (*                        *)
  613. .loc 23,1
  614. .pau
  615. @label :tmp
  616. .cls
  617. .get d.img
  618. .PSET  140,70
  619. .DRAW (*c1r60d8l3d6r3d41l60u55*)
  620. .CIRCLE center=(170,95) radius=10 color=1
  621. .CIRCLE center=(170,109) radius=4 color=1 start=0 stop=3.14
  622. .CIRCLE center=(170,119) radius=4 color=1 start=3.14 stop=0
  623. .PSET  174,109
  624. .DRAW (*c1d10*)
  625. .PSET 166,119
  626. .DRAW (*c1u10*)
  627. .paint center=(142,72) color=2 bound=1
  628. .move (0,0)-(20,70) steps=20
  629. .loc 17,18
  630. DISKETTE
  631. .get good.img
  632. @begin
  633. .loc 23,1 (*                        *)
  634. .loc 23,1
  635. @read (*PRESS THE LETTER D : *)
  636. @right (*D*) force nocase auto
  637. .play (*mbo3l32gabo4c*)
  638. .put 50,10
  639. .put 100,10
  640. .put 150,10
  641. .put 200,10
  642. @end
  643. .loc 23,1 (*                        *)
  644. .loc 23,1
  645. .pau
  646. .cls
  647. .scr 0
  648. .color 15,0
  649.  
  650.     ┌─────────────────────────────────────────────────────────────────────┐
  651.     │                                                                     │
  652.     │                             FANTASTIC!!                             │
  653.     │                                                                     │
  654.     │            That's a look at some of PC-CAI's capabilities.          │
  655.     │                                                                     │
  656.     │                           What you can do                           │
  657.     │                                                                     │
  658.     │                              Is limited                             │
  659.     │                                                                     │
  660.     │                     Only by what you can imagine!                   │
  661.     │                                                                     │
  662.     │                                                                     │
  663.     └─────────────────────────────────────────────────────────────────────┘
  664. .locate 24,1
  665. .pause
  666. @menu
  667.  
  668.